home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D08.D64 / primes winner (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  935 b   |  27 lines
  1. 0 GOSUB10:TI$="000000":P%=0:Y=0:X=0:DIMF%(9999)
  2. 1 FORX=0TOINT(19998^.5-3)/2:IFF%(X)THENNEXT:GOTO4
  3. 2 P%=2*X+3:FORY=(P%*P%-3)/2TO9999STEPP%:F%(Y)=1:NEXT
  4. 3 PRINT"[145]",P%,INT(TI/.6+.5)/100:NEXT
  5. 4 FORX=XTO9999:IFF%(X)THENNEXT:GOTO6
  6. 5 PRINT"[145]",2*X+3,INT(TI/.6+.5)/100:NEXT
  7. 6 PRINT" [201] LOOK FORWARD TO THE NEXT CHALLENGE!"
  8. 7 POKE 53270,200
  9. 8 END
  10. 9 :
  11. 10 PRINT CHR$(14)CHR$(8)CHR$(147):POKE 53280,11:POKE 53281,12:POKE 53270,195
  12. 11 PRINT "[155]   [162][188] [162][188]  [146][187][172]  [162][162][162] [162]  [146][187][172]  [162][162]"
  13. 12 PRINT "   [146][162][172] [146][162][172]      [146][162]       [146][162]"
  14. 13 PRINT "       [146][188][190]     [146][188][190]  "
  15. 14 PRINT "  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  16. 15 PRINT TAB(8)"[144][212][197][195][200][206][207]-[201][206][198][207] [195][200][193][204][204][197][206][199][197] 1"
  17. 16 PRINT TAB(9)"[208]RIME NUMBER ANALYSIS"9 :
  18. 17 PRINT TAB(8)"[212]HE 228 SECOND SOLUTION"
  19. 18 PRINT TAB(3)"[208]AUL [199]ANDER" TAB(24)"5 [205]ARCH 1991"
  20. 19 :
  21. 20 PRINT TAB(7)"[208]RESS ANY KEY TO COMMENCE"
  22. 21 POKE 198,0:WAIT 198,1:POKE 198,0
  23. 22 PRINT "[145][145]  [151][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  24. 23 PRINT "  [221] [144][208]RIME:       [151][221] [221]        [144]SECONDS [151][221]"
  25. 24 PRINT "  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][155]"
  26. 29 RETURN
  27.